Sub ()

    Dim ŷóġ As Integer
    Dim ġ As Integer
    
    ŷóġ = Sheets("ŷ").Range("D11").Value
    ġ = Sheets("ŷ").Range("D15").Value

    Sheets("ŷó").Range("G" & ŷóġ + 3).Value = Sheets("ŷó").Range("G" & ŷóġ + 3).Value + Sheets("ŷ").Range("H18").Value
    Sheets("").Range("D" & ġ + 3).Value = Sheets("").Range("D" & ġ + 3).Value - Sheets("ŷ").Range("F18").Value
    Sheets("ŷ").Range("F18") = ""

End Sub
